program Project1; // Zadanie 1.1

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, pole: Real; // deklarujemy zmienne typu Real

begin
  Writeln('Program oblicza pole prostokata.');
  Writeln('Podaj bok a.');
  Readln(a);
  Writeln('Podaj bok b.');
  Readln(b);
  pole := a*b; // obliczamy pole prostokata
  Write('Pole prostokata o boku a = ', a:4:2, ' i boku b = ', b:4:2);
  Write(' wynosi ', pole:4:2, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
